home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU15.ARC / BULK ERASER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  59 lines
  1. 5 RESTORE
  2. 6 CLR
  3. 10 SYS58692
  4. 11 POKE53280,5:POKE53281,0
  5. 15 PRINT"      CORONA DATA UTILITY DISK "
  6. 100 REM BULK ERASER - 1541
  7. 110 PRINT"[156]BULK ERASER - 1541"
  8. 120 PRINT"*INSERT DISKETTE IN DRIVE"
  9. 130 INPUT"    [158] ERASE[146][159] THIS DISKETTE  Y[157][157][157]";Q$
  10. 140 IFQ$<>"Y"THEN334
  11. 150 INPUT"ARE YOU SURE  Y[157][157][157]";Q$
  12. 160 IFQ$<>"Y"THENEND
  13. 170 OPEN15,8,15
  14. 180 FORI=0TO23
  15. 190 READD
  16. 200 D$=D$+CHR$(D)
  17. 210 NEXTI
  18. 220 PRINT#15,"M-W"CHR$(0)CHR$(4)CHR$(24)D$
  19. 230 FORT=1TO35
  20. 240 PRINT"ERASING[146][159] TRACK"T
  21. 250 REM SEEK
  22. 260 JOB=176
  23. 270 GOSUB360
  24. 280 REM EXECUTE
  25. 290 JOB=224
  26. 300 GOSUB360
  27. 310 NEXTT
  28. 320 PRINT"DONE!":PRINT"INSERT...[158]PIRATE'S GOLD ...OR......."
  29. 330 CLOSE15
  30. 331 INPUT"ANOTHER DISKETTE?(Y/N)";Z$:PRINT"DID YOU INSERT A PROGRAMMED DISK??"
  31. 332 IF Z$="Y"THEN5
  32. 333 IF Z$="N"THEN CLR
  33. 334 CLR:LOAD"MENU.BAS",8
  34. 340 END
  35. 350 REM JOB QUEUE
  36. 360 TRY=0
  37. 370 PRINT#15,"M-W"CHR$(8)CHR$(0)CHR$(2)CHR$(T)CHR$(0)
  38. 380 PRINT#15,"M-W"CHR$(1)CHR$(0)CHR$(1)CHR$(JOB)
  39. 390 TRY=TRY+1
  40. 400 PRINT#15,"M-R"CHR$(1)CHR$(0)
  41. 410 GET#15,E$
  42. 420 IFE$=""THENE$=CHR$(0)
  43. 430 E=ASC(E$)
  44. 440 IFTRY=500GOTO470
  45. 450 IFE>127GOTO390
  46. 460 RETURN
  47. 470 CLOSE15
  48. 480 PRINT"FAILED[146]"
  49. 490 END
  50. 500 REM 21 ERROR
  51. 510 DATA  32,163,253,169, 85,141,  1, 28
  52. 520 DATA 162,255,160, 48, 32,201,253, 32
  53. 530 DATA   0,254,169,  1, 76,105,249,234
  54. 832 IF Z$="Y"THEN5
  55. 900 END
  56. 9999 OPEN15,8,15,"S0:BULK*":CLOSE15
  57. 10000 SAVE"BULK ERASER",8
  58. 10010 VERIFY"BULK ERASER",8
  59.